home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / egavga.swg / 0061_25 & 50 Line mode in ASM.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-05-25  |  402 b   |  29 lines
  1. {
  2.  SG> ok.. how do you switch from 50 line mode to 25 line mode in assembly,
  3.  SG> and vice versa? I've tried many ways, which crash every now and then...
  4. }
  5. To 25 lines:
  6.  
  7. Uses crt;
  8. begin
  9. textmode(co80); {co80=3}
  10. end.
  11.  
  12. To 50 lines:
  13. procedure vga50;
  14. assembler;
  15. asm
  16.  mov ax,1202h
  17.  mov bl,30h
  18.  int 10h
  19.  mov ax,3
  20.  int 10h
  21.  mov ax,1112h
  22.  mov bl,0
  23.  int 10h
  24. end;
  25. begin
  26.  vga50
  27. end.
  28.  
  29.